AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
AAA AAA 
AAA ABR 
AAA AAA 
AAA ALA 
AAA Bib 
slat AA 
Aba AAA 
AAA AAA 
RRA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAR AAA 
AKA ABA 
ALB AAA 
RAR AAA 
AAA AAA 
bhh ABA 


L 
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LLLLLLLLLLLLLLL 
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5 
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8 


7 
7 


000000 BBBBBBBB JJ IIII11 NN NN PPPPPPPP UU UU TITTTTTTIT 
000000 B8BBBBBB JJ II1111 NN NN PPPPPPPP UU UU TTTTTTTTITT 

00 oO 88 BB JJ I] NN NN PP PP UU UU TT 

00 00 BB JJ I] NN NN PP PP UU UU TT 

00 co 8B BB JJ II NNNN NN PP PP UU UU TT 

00 00 8B JJ I] NNNN NN PP PP UU UU TT 

00 00 88888668 JJ I] NN NN NN PPPPPPPP UU UU TT 

00 00 88886688 JJ I] NN NN NN PPPPPPPP UU UU TT 

00 00 BB JJ JJ I] NN NNNN PP UU UU TT 

00 00 868 BB JJ JJ I] NN NNNN PP UU UU TT 

00 00 BB JJ JJ I] N NN PP UU TT coee 

00 00 68 BB JJ JJ I] NN NN PP UU UU TT cece 
000000 BBBBBBBB JJJJJJ IIII11 NN NN PP UUUUUUUUUU TT cece 
000000 BBBBBBBB JJJJJJ HII! NN NN PP UUUUUUUUUU TT eeee 

LL 111111 SSSSSSSS 

LL 11111] SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] ss 

LL I] SSSSSS 

LL 1] SSSSSS 

LL I] SS 

LL I] SS 

LL I] S$ 

LL 1] $$ 

LLLLLLLLLL L111 SSSSSSSS 

LLLLLLLLLL 11111 SSSSSSSS 
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Ztitle ‘OBJINPUT = Handle Object Files & Libraries’ 
module objinput ( 
ident="V04=-000') = begin 


! 
LR RRR HARAAHEHETERERERHEEEREHO RHEE ERE ERE EAH ETE TREK eHE Ree Re HeA eee eee eA Tee 


i# COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
'* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
is ALL RIGHTS RESERVED. 


* 
* 
* 
® 
* 
® 
!* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
‘* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
'* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
!* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
'* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
'# TRANSFERRED. * 
we 
® 
® 
* 
® 
a 
e 
® 
* 
® 


i's THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ye PomPOkat ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
. * . 


is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
1* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


i eeeeeeeee ee eee ee eeeeeeeeReee eee eee tere eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeneee 
i 

'e¢ 

Facility: VAX/VMS Analyze Facility, Handle Object Files & Libraries 

! Abstract: This module is responsible for handling file specs from 


the command line, and reading data from object files and 
Libraries. 


Environment: 


SOOCSCOSOSOOSOSSOOOSOOSOSCOOOCOSOOCOCOCOOOCOOOOOOCOOSCOOSoOO 
foe ee ee ee ee ew ololololeolololelelelelolelelelelelelaleleleleolelolalaleleo) 
ODNAWNE WN OO ONA UE WN SO OONAUE AUN MOO ODNAUS WN 


BE NWANANAANNAIAIR POPPIN NINN 3 2 OO OS SP OOOOOOCOCCO 


eB kk et eB Bk a dd dd ed dd od od od OOD 


i 

' 

i 

i 

i 

i 

? , Author: Paul C. Anagnostopoulos, Creation Date: 8 January 1981 

0042 1 | Modified By: 
0043 : 
0044 : v03-005 BLS0286 Benn Schreiber .20-MAR~1984 
Rpee } Correct 004. 
0047 1} v03-004 LJA0113 Laurie J. Anderson 24-Feb-1984 
0048 ' Add new related file bbe arguments to LIBSFIND_FILE 
sr to make search Lists behave properly. 
0051 : v03-003 PCA1011 Paul C. Anagnostopoulos 11-Apr-1983 
0052 ; Change the message prefix to ANLOBJ$_ to ensure that 
0053 : message symbols are unique across alT ANALYZEs. This 
B03 is nec2ssitated by the new merged message files. 
0056 1! v03-002 PCA0022 Paul Anagnostopoulos 24-Mar-1982 
0057 i Signal errors using the correct STV values. 


~wO 


NVIOO™N 


~ 


2 


—> — _s -» _» 


v03-001 PCA0013 Paul Anagnostopoulos 22-Mar-1982 
Use the resultant spec rather than the wildcard spec 
when complaining about a file to be analyzed. 


5 VAX-11 Bliss-3 
3 CANALYZ.SRC 


enw O20 @ NO 
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OBJ INPUT OBJINPUT = Handle Object Files & Libraries 1b -Sep-1984 23:41:35 AX-11 Bliss=32 V4.0-742 Page 
v04=000 Module Declarations 14-Sep-1984 11:52:53 ANALYZ.SRC JOBJ INPUT .B32; 1 
H B96 1 Zsbttl "Module Declarations’ 

ee 064 1! | 

5; & 0065 1! Libraries and Requires: 

3. Of 0066 1! 

; 68 0067 1 | 

; 0068 1 Library ‘starlet’; 

; £0 0069 1 require ‘objexereq'; 

Eee 0505 1 

Bee 0506 1! 

BER 0507 1 ! Table of Contents: 

; 0508 1! 

i: 3 0509 1 ; 

; £0 0510 1 forward routine ; 2 

“ee 0511 1 anl$open_next_object_file, 

; B26 1 anl$object include, 

ae & 05135 1 anl$get_object_record; 

; 80 0514 1 

; $1 0515 1! 

Ee Be 0516 1 ! External References: 

Bee :, 0517 1! 
is 694 0518 1 j 
is 85 0519 1 external routine 

; 8 0520 1 anl$object_positionals, 

5 68 0521 1 cli$get_value: ee agin Ss pene my tei 

is 88 0522 1 Lbr$close: addressing_mode(general), 

; 0523 1 Lbr$get_index: addressing_mode(general), 

; 0524 1 lbr$get_record: addressing_mode(general), 

7 WH 0525 1 LorZini_control: addressing_mode(general), 

; 0526 1 Lor$lookup_key: address ing _sode( eneral), 

ere 0527 1 Lor$open: addressing_mode(general), 

; 94 0528 1 Lib$find_file: addressing_mode(general), 

2 0529 1 Lib$free_vm: addressing_mode(general), 

; «696 0530 1 Lib$Sget_vm: addressing_mode(general), 

52 W 0531 1 str$trim: addressing_mode(general); 

; 0532 1 

; ph tee 

; 100 0534 1 ! Own Variables: 

: 101 O59 3 3 

: 102 0536 1 ! The following data is needed to keep track of what kind of file we 
s 105 0537 1! are processing. 

; 104 0538 #1 

s 105 0539 1 own : 

; 106 0540 1 own_described_buffer(resultant_spec,nam$c_maxrss), 
: 107 0541 1 worect.§ feree?? byte, 

; 108 0542 #1 Library_index: long; 

; 109 0543 (1 : 
ie. 110 0544 1 ! The following data structures are used to access and read records from 
B See kk 0545 1! a file we are to analyze. 

. Fiz 0546 1 
Pee ab 0547 1 own 
is 114 P 0548 1 object_fab: $fab(fac=get, 

s 99§ 0549 1 shr=get), 

> 116 0550 1 
€ aH b2e5 ' own_described_buffer(object_buffer,obj$c_maxrecsiz), 
i; 119 P0553 1 object_rab: $rab(‘sb=object_fab, 
i: 120 P 0554 «1 


rac=seq, 


15 
OBJINPUT = Handle Object Files &@ Libraries 1b-Sep-1984 23:41:35 
Module Declarations 14-Sep-1984 11:52:53 
P0555 1 rop=\oc, 
P 0556 1 ubf=object_buffer+8, 
0557 1 usSz=0bj$c_maxrecsiz); 


AX=-11 Bliss-32 V4.0-74 
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f 18 
ons iy" OBJINPUT = Handle Object Files & Libraries 15-Sep-1984 $381: 38 AX-11 Bliss=32 V4.0-74 Page 5 
v04 ANLSOPEN_NEXT_OBJECT_FILE = Right 14-Sep-1984 11:52:53 ANALY7.SRCJOBJ INPUT .B32;1 (3) 
5 9228 Zsbttl ‘ANLSOPEN_NEXT_OBJECT_FILE = Right’ 
'e¢ 
560 Functional Description: ; 
561 his routine is called to open the next object file we are to analyze. 
206 It handles multiple file specs, wildcarding, and object libraries. 
5 Formal Parameters: 
5 opened_spec Address of descriptor of buffer in which to return 
H 5 the spec of the file we open. We set the length. 
3 Implicit Inputs: 


global data 


global data 


Returned Value: : : 3 
True if there is another object file, false otherwise. 


' 

i 

' 

' 

i 

i 

' 

i 

i 

i 

Implicit Outputs: 
' 

Side €ffects: 
le 


global routine anl$open_next_object_file(opened_spec) = begin 


bind 
opened_spec_dsc = .opened_spec: descriptor; 


own 
own_described_buffer(wildcard spec ,nam$c_maxrss), 
wildcard_context: long initial(0), 
all_moduTes: byte, ; : 
module_list: ref blockvectorl,obj$c_symsiz,bytel, 
module_list_size: long, 
module_list_index: signed long, 
get_new_spec: long initial (true); 


b+ pet tay tet eet Pe PRN BPN SO 
ODWNA VE WN $9 OONAUE WR $C OONOW 


local 
stv: eS 
status: long; 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
r4 
2 
r4 
? 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
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ANLSOPEN_NEXT_OBJECT_FILE = Right -Sep-1984 11:52: NALYZ.SRCJOBJ INPUT .832;1 (4) 
167 0599 : The following internal routine is called by the Librarian when we need to 
168 8 : scan an object Library index. We do this if the user asks us to analyze 
1$8 eet ! all the modules in the Library. The routine is called once for each module. 
171 060 routine add_module_to_List(module_name) = begin 
106 0604 : 
17 0605 bind . : 
176 0606 module_name_dsc = .module_name: descriptor; 
175 0607 3 , é 
1 ets ! Copy the module name into the next module_list entry. 
178 0610 ch$copy(.module name_dscllen],.module_name_dsc(ptr], 
iz poi) ' objSc_symsiz,module_listl.module_list_size,0,0,0,0]); 
181 061 ! Increment the module List size. 
186 0614 é : . 
18 0615 ; increment (module_list_size); 
184 0616 
185 0617 3 return ss$_normal; 
186 0618 3 
187 0619 2 end; 


See Se Oe Se Oe Oe ee Se Be Ge Se Se Oe Se Se SH es Oe oe oe 


-TITLE OBJINPUT OBJINPUT = Handle Object Files & Libra 
ries 
-IDENT \Vv04-000\ 
-PSECT $OWNS,NOEXE,2 
O00000FF 00000 RESULTANT SPEC: 
00000000" 00004 -ADDRESS RESULTANT_SPEC+8 ; 
0008 -BLKB 5 
00107 OBJECT _LIBRARY: 
00108 LIBRARY. INDEX: 
0010C OBJECT_FAB: 
.BYTE 
00100 .BYTE 


Oo 
Ww 
Oo 


> 
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v04=000 ANLSOPEN_NEXT_OBJECT_FILE = Right 14-Sep-1984 11:52:53 ANALYZ.SRCJOBJ INPUT .B32;1 
00000000 0013¢ . LONG 
88 0140 BYTE 
0 0141 -BYTE 8 
0000 00142 WORD 
00000000 00144 -LONG OQ 
0000 00148 «WORD 0 
G0 QO14A BYTE 0 
00 00148 -BYTE 0O 
00000000 0014¢ «LONG QO 
00000000 00150 -LONG OQ 
0000 00154 «WORD 0 
00 Ba 128 «BYTE 0O 
00 0015 -—BYTE O 
00000000 00158 -LONG 0 
00000800 0015C¢ OBJECT pur Tens sess 
00000000° 00160 -ADDRESS OBJECT_BUFFER+8 
00164 -BLK 2048 
01 00964 OBJECT_RAB: 
BYTE 1 
44 0965 BYTE 68 
0000 00966 ~ WORD 0 
00010000 00968 -LONG 65536 
00000000 0096C .~ LONG 
00000000 00970 -LONG OQ 
00004 00974 WORD 0(3) 
0000 O097A ~ WORD 0 
00000000 0097C -LONG 0 
0000 00980 WORD 0 
00 00982 -BYTE O 
0 0983 -BYTE O 
0800 00984 ~ WORD 2048 
0000 00986 WORD 0 
00000000° 00988 -ADDRESS OBJECT_BUFFER+8 
00000000 0098C¢ -LONG 0 
00000000 00990 -LONG 0 
00000000 00994 -LONG 0 
00 00998 -BYTE 0O 
00 00999 -BYTE 0 
00 O099A -BYTE 0O 
00 00998 YTE 0O 
00000000 0099¢ -LONG 0 
00000000° 009A0 -ADDRESS OBJECT_FAB 
00000000 009A4 .LON 0 
OOOOOOFF 00948 WILDCARD. SPEC: or 
00000000" O09AC -ADDRESS WILDCARD_SPEC+8 
00980 -BLKB 255 
OOAAF -BLKB 1 
00000000 00AB0 WILOCARD _CONTERT 
QOABS ALL_MODULES: 
-BLKB 1 
OOABS -—BLKB 3 
00AB8 MODULE LIST: ; 


. L 
QOABC MODULE _LIST_SIZE: 
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00000001 


13-Sep-1984 et 
14-Sep-198 
L 


QOACO MODULE_LIST INDE 


LRB 
QOOACS GET_NEW_ SPEC: 
«LONG 


735 AX-11 By ise =-32 v4.0-74 
753 ANALYZ.SRC 3085 INPUT .B3 


4 
M: 


ANLOBJ$_OK ane ANY THING 


ORNONE 
ANLOBJ$_ERRORS, ANLOBJS_EXEFIXA 
An. 083 EXEF IXAIMAGE 


$"EXEF IXALINE 
ANLORJ$— EXEF IXCOUNT 
ANLOBPS_EXEFIXEXTRA 
ANLOBJS_EXEF IXF IXED 
ANLOBJS_EXEF IXFLAGS 
ANLOBJS_EXEF 1XG 
ANLOBJ$_EXEF IXGIMAGE 
ANLOBJS$_EXEF IXGLINE 
ANLOBJS_EXEFIXLIST 
ANLOBJ$_E XEF IXNAME 
ANLOBJ$_EXEF IXNAMEO 
ANLOBJ$_EXEF IXP 
ANLCBJS_EXEFIXPSECT 
ANLOBJ$_EXEF I XUP 
ANLOBJ$_EXEF IXUPNONE 
ANLOBJ$_ Sieh a ANLOBJ$_EXEHDR 
ANLOBJ$_EXEHDRACTIVE 
ANLOBJ$_EXEHDRBLKCOUNT 
ANLOBJ$_EXEHDRCHANCOUNT 
ANLOBJ$_EXEHDRCHANDEF 
ANLOBJ$— SRE NORDE CECE 
ANLOBJ$— mie a T 
ANLOBJ$_EXEHDRDST 
ANLOBJS$_EXEHDRF ILEID 
ANLOBJ$_ pied 
ANLOBJ$_EXEHDRFLAGS 
ANLOBJ$— wih oy ite 
ANLOBJ$_EXEHDRGST 
ANLOBJ$_EXEHDRIDENT 
ANLOBJ$_ feaien 
ANLOBJ$_EXEHDRISD 
ANLOBJ$_EXEHDRISDBASE 
ANLOBJ$_EXEHDRISDCOUNT 
ANLOBJ$_EXEHDRISDFLAGS 
ANLOBJ$_EXEHDRISDGBLNAM 
ANLOBJ$—EXEHDRISDNUM 
ANL OBJ$_EXEHDRISDPF CD 
ANLOBJS_EXEHDRISDPFCSI2Z 
ANLOBJ$"EXEHDRISDTYPE 
ANLOBJ$"EXEHDRISDVBN 
ANL OBJ$—EXEHDRL INK ID 
ANLOBJ$_EXEHDRMATCH 
ANLOBJ$"E XEHDRNAME 
ANLOBJ$_E XEHDRNOPATCH 
ANLOBJ$—E XEHDRPAGE COUNT 


31 


19 


Bt. 
13-Sep-1984 
14-Sep-1984 


3:41: 
1:52: 


3:33 AX-11 Bliss-32 V4.0-74 
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ANLOBJ$_ Silenpatte’ 
ANLOBJ$_EXEHDRPATCH 
ANLOBJ$_ omit 


ANLOBJ$_EXEHDRTEXTVBN 
ANLOBJ$_EXEHDRT IME 

ANLOBJ$_EXEHDRTYPEEXE 
ANLOBJS_EXEHDRTYPELIM 
tow ~EXEHDRUSERECO 


TCH 
ANLOBJS$~FLAG ANL OBS. HEXDATA 
ANLOBJ$~HEXHE AD 


ACT 
ANLOBJ$_MASK, ANLOBJ$_OBJCPRREC 
ANLOBJ$_ OBJ DAGREC 
ANLOBJ$_ a oo OBJEOMF LAGS 


ANLOBJ$_OBJGSDIDCEN 
ANLOBJ$_ “OBI GSD IDCFLAGS 
ANLOBJ$~OBJGSDIDCMATCH 
ANLOBJ$_OBJGSDIDCOBJ 
ANLOBJ$"OBJGSDIDCVALA 
ANLOBJ$_OBJGSDIDCVALB 
ANLOBJ$~OBJGSDLEPM 
ANLOBJ$_OBJGSDLPRO 
ANLOBJ$_OBJGSDLSY 


ANLOBJ$_OBJGSD 
ANLOBJ$_OBJGSDPSCALIGN 
ANLOBJ JGSDPSCALLOC 


ANLOBJ$"OBJGSDPSCFLAGS 
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ANALYZ.SRCJOBJ INPUT .832;1 
ANLOBJ$_OBJGSDREC 


ANLOBJ$_ 


WHEN 
ANLOBJ$—OBJPROARGCOUNT 
ANLOBJ$_OBJPROARGNUM 


w L 
ANLOBJ$_OBJSYMFLAGS 
ANLOBJ$_OBJT IRARGINDEX 
ANLOBJ$~OBJTIRCMD 
ANLOBJ$_OBJTIRCMDSTK 
ANLOBJ$_ OBJ TBTREC 
ANLOBJ$—OSJTIRREC 
ANLOBJ$_OBJTIRSTOIM 
ANLOBJ$_OBJTIRVIELD 
ANLOBJ$_OBJTTLREC 
ANLOBJ$~ OBJ VALUE 
ANLOBJ$_OBJUVALUE 
ANLOBJS$_ Mads 43h 
ANLOBJ$_ SEVERITY 
ANLOBJ$_ TEXT TANLOBUS TEXTHDR 

0 ae 


MLEN 
ANLOBJ$— ~PXEBADE [XUPEND 
ANLOBJ$_E XEBADF I XUPISD 


OBJINPUT = Handle Obie ost 


t Files A Libraries i$ 
PEN_NEXT_OBJECT_F 14 


-EXTRN 
-PSECT 


003C 00000 ADD eae LIST: 


:3 AX-11 Bliss-32 V4.0 
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ANLOBJ$_EXEBADF I XUPVBN 
BADISDS1 


ADM 
ANLOBJ$_ rupee 


ANLOBJ$_EXE 
ANLOBJ$~EXEBADTYPE 
ANLOBJS~EXEBADXFERO 
ANLOBJ$—EXEHDR I SDLONG 
ANLOBJ$~EXEHDRLONG 
ANLOBJ$— EXE I SDLENDZRO 
ANLOBJ$~EXE I SDLENGBL 
ANLOBJ$~EXE I SDLENPRIV 
ANLOBJ$— EXENOTNATIVE 
ANLOBJ$~EXTRABYTES 
ANLOBJ$~F IELDFIT 
ANLOBJ$~FLAGERR 


OR 
ANLOBJ$~ oe and ANLOBJ$_OBJBADIDCMATCH 
ANL OBJ$_ OBJ BAONUM 
ANLOBJ$— OBJBADPOP 


ANL0BJ$~OBJF ADBADAVC 
ANLOBJ$~OBJF ADBADRBC 
ANLOBJ$~OBJGSDBADAL IGN 
ANLOBJ$— =08, GSDBADSUBT YP 
ANLOBJ$~OBJHDRRE S 
ANLOBJ$~ ~OBJMHDBADRECSIZ 
ANLOBJ$~OBJMHDBADSTRLVL 
ANLOBJ$~OBJMHDMI SS ING 
ANL OBJ$~OBJNONT 1RCHD 


ANLOBJ$_OBJNOPS 
NL ~OBJNULLR 
ANLOBJ$_OBJPOSPACE 


ANALYZE CIL 

ANLSOBIECT. POSITIONALS 
CLISGET_VACUE, LBRSCLOSE 
LBRSGET_IN DEX. tBRSGET RECORD 
tBRSINI~ CONTROL 
LBRSLOORUP_KEY, LBRSOPE 
LIBSFIND FILE, LIB BS net aT 
LIBSGET_9M, Etrtia 


SCODES,NOWRT,2 


Save R2,R3,R4,R5 


: 0603 


3; Routine Size: 


BUY ei 


5 0000° e fi ‘ 

Ff 30 06 61 61 
0000*DF40 

0000" CF 

50 01 


30 bytes, Routine Base: 
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MODULE LIST _SIZE 
#1, RO 
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$12 
M.'s aMODULE_LISTCROI 


Page 


12 
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0620 : If the wildcard context is zero, it means this is the first call, or 

8 1 ! we finished with a file spec on the previous call. So we must obtain 

80 < ! the next file spec from the command Line. 

0624 if .get_new_spec then ( 

0625 wildcard spec(len] = nam$c_maxrss; ; 

Re : Status = ¢ i$get_value(describe('file_specs’) ,wildcard_spec); 

Re ; ! If there are no more specs, we are all done. 

$680 3 if not .status then 

poe! ; _feturn false; | 

boas 3 str$trim(wildcard_spec wildcard spec ,wildcard_spec); 

0634 3 ! Call a routine to process any positional qualifiers for this spec. 

06035 3 ! We don’t know how to do that. 

0636 3 : : 

st H4 ; ani $object_positionals(); 

0639 3 ! Now we have to find out if this new spec has a /INCLUDE qualifier 

0640 3 ! attached to it, meaning that it is an object library. If it is, 

eee ; ! then the module List will be filled in with the module names. 

See$ 3 status = LibSget_vm(Zref(1000*obj$c_symsiz) ,module_Llist); 

0644 3 check (.status, .Status); _ : . 
0645 3 object_library = anl$object_include(all_modules,module_list_size,.module_list); 
0646 3 module_list_index = <1; 

0647 2); 

0648 2 A E : p 

0649 2 ! On the other hand, if the previous call done is true, we may have just 

0650 2! finished processing a file. This is only true if we're processing 

pee) 2 ! an individual object file. Better close it. 

0653 § if (.object_fab{fab$w_ifi] nequ 0) then ( 

0654 3 status = $close(fab=object_fab); : 

Rees ; check (.status, anlobj$_closein,1,resultant_spec,.status,.object_fab[fab$l_stv]); 
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ee Be Be Oe Be Bs Oe Be Be Oe Oe Be Be Se Be Be Bs Be Se Be Be Se Se Se Ft Se Be Oe Se Se Se Se Se Se Se Se Se Se Se Se SH Se Se Os Ge Se Se Se SH Se Sse Oe Se SH SH Se we 


44 57 ! We have obtained a wildcard spec from the file parameter, and any associated 
§ . bees ! positional qualifiers. 
2 0660 ! Now we have to see if we need to find the next file that matches the 
231 61 ‘ current file spec. This is always the case if it’s not an object Library. 
v4 ¢ 66 ! If it is, then we must search if this is the first time or we finished 
§ 066 ! with the previous Library. 
Me 0664 : 
235 0665 if not ,object library or : 
236 0666 (,object_liBrary and .module_list_index eqlu -1) then ( 
237 0667 resultant spec(len] = nam$c_maxrss; ; 
$e 0668 status = Tib$find_file(wildtard_spec,resultant_spec wildcard context, 
239 0669 (if .objéct_library then describe('.O[B') else describe(’.0BJ"'), 
240 0670 3 ; 0, stv, tref(2) ); 
st ge ; str$trim(resultant_spec,resultant_spec,resultant_spec); 
28 0675 3 ! If we failed to find a file, then free up the module list, reset 
244 0674 3 ! the wildcard context, and call ourselves recursively to do the 
245 0675 3 ! mext file spec. Also give an error, unless we just plain ran 
246 0676 3 ! out of files. 
<i 0677 3 
48 0678 4 if not .status then ( 
249 0679 4 if .status nequ rms$_nmf then 
250 0680 4 signal (anlobj$_openin,1,resultant_spec,.stv); 
251 0681 4 status = Lib$free_vm(Zref(1000*0bj$c_symsiz) ,module_List); 
252 0682 4 check (.status, .Status); 
255 0683 4 get_new_spec = true; ; : 
254 0684 4 return anl$open_next_object_file(opened_spec_dsc); 
255 0685 3 d3 
539 087 § M4 fit Open the Lib tit : 
} : Hey, we got a file spec. pen the Library or file, aS appropriate. 
258 0688 § 
259 0689 3 get_new_spec = false; 
260 0690 4 if eee rec’ 8 ar ary then ( : 
261 0691 4 status = lbr$ini_control(library_index,%ref(lbr$c_read) ,Zref(lor$c_typ_obj)); 
262 0692 4 check (.status, .Status); | 
263 0693 4 status = lbr$open(library_index,resultant_spec -; 
264 0694 4 check (.status, anlobj$_openin,1,resultant_spec,.status); 
265 0695 4 delse( | 
266 0696 4 object_fablfab$b_fns] = .resultant_spec(len]; 
267 0697 4 object_fablfab$l_fna] = .resultant_spec(ptrJ; 
268 0698 4 status = Sopen(fab=object_fab); 
269 0699 4 check (.status, anlobj$_openin,1,resultant_spec,.status,.object_fab[fab$i_stv J); 
70 0700 5 if .status then ( ; 
71 0701 5 status = $connect(rab=object_rab); 
$36 4 i check (.status, anlobj$_openin,1,resultant_spec,.status,.object_rablrabSi_stv)); 
74 0704 3 ); 
275 0705 3 ; ; 
276 0706 3 ! If the open failed, then we need to recurse to try the next file. 
277 0707 3 
278 0708 3 if not .status then i t 
{84 a4 ; return anl$open_next_object_file(opened_spec_dsc); 
$B 0711 § ' If this is an oe ieee Library, it may be the case that our call 
282 gre 3 ' to ANLSOBJECT_INCLUDE told us that the user wanted all modules. 
283 Oris. 3 ' If so, let's ask the Librarian for them; it will call ADD_MODULE_ 
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6 ; ! TOLLIST for each one. 
0716 4 if .object library and .all_modules then ( 
0717 4 module_list_size = 0; 
0718 4 status = lbr$get_ index (library. index ,2ref(1),add_module_to_list); 
0719 4 check (.status, .Status); 
0720 3 3 
0721 2); 
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44 § ! We know that we have a good file opened. 

0724 ' OK, now we may be ghee igi an object library. If so, we have to | 
87S? ! get the next module name out of the module List and prepare to read it. 
07 § if .object_library then ( 

0728 Local 

0729 module_name_dsc: Sescr iptor. 

8730 module_text_rfa: block(8,bytel; 

te) increment (module_list_index); 

0734 ! If we are at the end of the List, then call ourselves recursively 
0735 ! to process the next file matching the current spec. But first we 
Br e9 ' must close the Library we just finished. 

0738 if .module_list_index eqlu .module_list_size then ( 

0739 status = lbr$close(library_index); 

0740 check (.status,anlobj$_closein,1,resultant_spec,.status); 
0741 module_list index = <1; 

O7e8 return anl$open_next_object_file(opened_spec_dsc); 

0744 ? 

0745 ! Prepare to read the next module. If it isn’t in the library, 
Bree ! recurse to try the next one. 

0748 module_name_dsc(0,0,32,0] = ort gyasta; oS. 

ey, module _name dsctptrd = module istl.module_list_index,0,0,0.0]; 


str$trim(module_name_dsc ,module_name_dsc ,module_name_dsc); 
status = Lbr$lookup_key((ibrary~index,module_name_dsc,module_text_rfa); 
if not .status then ( k 
check (.status, anlobj$_nosuchmod,2,resultant_spec ,module_name_dsc); 
return anl$open_next_object_file(opened_spec_dsc); 
; 


! Finally, we have to build the real resultant file spec. If we're not 
! doing an object Library, then we already have it. If we are, we have 
! to append the module name. In all cases, trim trailing blanks. 


str$trim(opened_spec _dsc,resultant_spec ,opened_spec_dsc); 
if .object library then ( é : : aan 
ch$copy(1,uplit byte(’ '),obj$c_symsiz,module_list{.module_list_index,0.0,0,0], 
. kL ei , -opened_spec dsclptrJ+.opened_spec_dsclieni) 
opened_spec_dsc(lén] = .opened_spec_dscClen] + obj$c_symsiz+l; 
str$trim(opened_spec_dsc ,opened_spec_dsc ,opened_spec_dsc); 


return true; 
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end; 


-PSECT $PLITS,NOWRT ,NOEXE ,2 
73 63 65 70 73 SF 65 6C 69 66 00000 P.AAB: .ASCI] \file_specs\ 
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OO0A -BLKB 2 
0000000A 8 P.AAA: .LONG 10 : 
00000000" 0001 “ADDRESS P.AAB : 
42 4C GF sf 0014 P.AAD: .ASCII \.OLB\ j 
00000004 00018 P.AAC: .LONG 4 . 
00000000" 0001¢ “ADDRESS Pp, we j 
4A 42 GF 2€ 00020 P.AAF: . ASCII \.OBJ\ 3 
44 4 ota i 4 P.AAE: .LONG 4 : 
0000000’ 00028 “ADDRESS P.AAF : 
20 O0002C P.AAG: .ASCII \ \ 
-EXTRN SYSS$CLOSE, ,5YSSOPEN 
-EXTRN SYSSCONNEC 
«PSECT S$CODES,NOWRT,2 
OFFC 00000 -ENTRY ANLSOPEN_NEXT_OBJECT_FILE, Save R2,R83,R4,- ; 0582 
R5,R6,R7,RB,RI,RIO,RTI : 
5B 00000000G 00 9€ 00002 MOVAB STRSTRIM, Ril : 
5A 00000000G 00 9€ 00009 MOVAB’ LIBS$SIGNAL, R10 ; 
59 0000" CF 9E 00010 MOVAB RESULTANT_SPEC, R9 3 
SE 3 1¢ C2 00015 SUBL2 #28, SP ; 
57 0&4 AC D0 00018 MOVL OPENED spec R7 ; 0585 
6C OACS C9 E9 ODOIC BLBC GET_NEQ_S 3 i 0624 
09A8 =C9 FF 8F 9B 00021 MOVZBW #255, UILDE AAD. SPEC 3; 0625 
09A8 C9 OF fit PUSHAB WILDCARD_SPEC 3: 0626 
0000" CF 9F 00028 PUSHAB P.AAA 3 
00000000G 00 02 FB 0002F CALLS #2, ris & VALUE Z 
52 50 DO 00036 MOVL RO, STA 5 
03 52 E8 00039 BLBS STATUS, of ; 0630 
02A8 31 0003C BRwW 24$ 3 
O9A8 C9 OF OOOSF 1$: PUSHAB WILDCARD_SPEC 3 0632 
09AB C9 OF 00043 PUSHAB WILDCARD_SPEC 5 
09A8 C9 OF 00047 PUSHAB WILDCARD” SPEC : 
6B 03 FB 00048 CALLS #3, STRSTRIM i 
0000G CF 00 FB O004E CALLS , pit Soa JECT POSITIONAL S 3 0637 
OABB C9 OF 00053 PUSHAB T 3: 0643 
08 AE 7918 8F 3C 00057 MOVZWL #310007  BtSP) : 
08 AE Y9F 0005D PUSHAB 8(SP) 3 
000000006 00 02 FB 00060 CALLS #2, LIBSGET_VM 3 
52 50 DO 00067 MOVL RO. STATUS ; 
05 52 E8 OO06A BLBS STATUS, 2$ ; 0644 
52 DD Byoee PUSHL STATUS ; 
6A 01 FB 0006F CALLS #1, LIBSSIGNAL : 
OAB8 C9 DD 00072 28: PUSHL MODULE_LIST : 0645 
OABC C9 OF 00076 PUSHAB RODULE “LIST_SIZE ; 
0OABS C9 9F OOO7A PUSHAB MOBULES™ 3 
v CF 03 FB OOO7E CALLS re “ANLSOBJECT INCLUDE ‘ 
0107 C9 50 90 00083 MOVB RO, OBJECT_LIBRARY é 
C9 01 CE 00088 MNEGL #1. MODULE “LIST_ INDEX ; 0646 
010E C9 BS 0008D 3$: TSTW eevee! _FABF2 3; 0653 
24 13 00091 BEQL 4$ é 
010C C9 9F 00093 PUSHAB > AB 3; 0654 
000000006 00 01 FB 00097 CALLS #1, Co sser OSE ; 
¢ 50 DO 0009E MOVL RO, STATUS F 
1 52 €8 OOOAI BLBS STATUS, 4$ : 0655 
0118 C9 DD OO0A4 PUSHL OBJECT_FAB+12 : 
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52 DD O00A8 PUSHL STATUS : 
59 DD QOOAA PUSHL 9 3 
4 DD OQOOAC PUSHL #1 é 
00811052 F OD 4 by PUSHL #11604050 ; 
6A 05 FB 00084 CALLS #5, LIBSSIGNA : 
50 0107 ¢9 9A 000B7 4$: MOVZBL OBJECT. LIBRARY, RO ; 0665 
OE 50 €9 Q00BC BLBC RO, 5$° : 
FFFFFFFF 8 ©68F OACO §=C9 D1 QO0BF CMPL MODULE _LIST_INDEX, #=1 : 0666 
03 13 000C8 BEQL 5$ ; 
015A 31 QOOCA BRW 16$ 3 
69 FF «8F 98 OO0CD 5$: MOVZBW #255, RESULTANT_SPEC ; 0667 
04 AE 02 00 00001 MOVL #2, 4(SP) : 0670 
04 AE 99F 00005 PUSHAB 4(SP : 
OC AE YF 00008 PUSHAB STV ; 0668 
7E 04 00008 CLRL =(SP) ; 
07 50 £9 00000 BLBC RO, 6$ ; 0669 
50 0000 CF 9E Q00ED MOVAB P.AAC, RO : 
05 11 OO0E5S BRB 7$ ; 
50 0000" CF 9E QOOE7? 6$ MOVAB P,AAE, RO ; 
50 DD OQOOEC 7$ PUSHL : 
OABO C9 9F OOOEE PUSHAB WILDCARD_CONTEXT ; 0668 
‘ 59 DD 000F2 PUSHL R9 ; 
O9AB C9 YF OOOFS PUSHAB WILDCARD SPEC : 
000000006 00.. 07 FB OO0F8 CALLS) #7, LIBSFIND_ FILE : 
52 50 00 OOOFF MOVL RO, STATUS 3 
59 DD 00102 PUSHL R9 : 0671 
59 DD 00104 PUSHL " : 
59 DD 00106 PUSHL : 
68 03 FB 00108 CALLS i, STRSTRIM 3 
40 52 €8 00108 BLBS STATUS, 10$ ; 0678 
000182CA = BF 52 01 0010E CMPL STATUS, #99018 ; 0679 
10 13 00115 BEQL 8$ ; 
08 AE DD 00117 PUSHL STV ; 0680 
59 DD OO11A PUSHL R ; 
01 DD 0011C PUSHL : 
00B1109A 8F DD OOTIE PUSHL #11604122 ; 
6A 04 FB 00124 CALLS #4, LIBSSIGNAL : 
OAB8 C9 OF 00127 8$: PUSHAB MODULE_LIST ; 0681 
08 AE 7918 + =8F 3C 0012B MOVZWLE #31000, 8(SP) F 
08 AE 9F 00131 PUSHAB 8(SP) : 
000000006 00 02 FB 00134 CALLS 2, LIBSFREE_VM : 
52 50 00 00138 MOVL » STATUS : 
52 E8 0013E BLBS STATUS, 9$ : 0682 
52 DD 00141 PUSHL STATUS ; 
6A 01 FB 00143 CALLS #1, LIBSSIGNAL : 
OACS §=C9 01 DO 00146 9$: MOVL #1, GET_NEW_SPEC : 0683 
0159 31 00148 BRW 21 : 0684 
OACS C9 D4 OO14E 108: CLRL GET _NEW_SPEC ; 0689 
48 0107 C9 £9 00152 BLBC «=: OBJECT _CIBRARY, 12% ; 0690 
04 AE 01 00 00157 MOVL Wi, 4(S5P) : 0691 
04 AE 9F 0015B PUSHAB 4(SP) : 
04 AE 01 00 0015E MOVL #1, 4(SP) ; 
04 AE OF O01 os PUSHAB 4(SP) : 
0108 C9 9F 0016 PUSHAB ey NDEX : 
000000006 00 03 FB 00169 CALLS #5, LaRSINI CONTROL ; 
52 50 DO 00170 MOVL RO, STA 2 
05 52 €8 00173 BLBS STATUS, "Y ; 0692 
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52 DD o176 PUSHL STATUS : 
6A 01 FB 0017 CALLS #1, LTBSSIGNAL : 
59 DD 0017B 118: PUSHL R9 3: 0693 
0108 C9 9F 0017D PUSHAB LJeRany INDEX : 
000000006 00 96 FB 00181 CALLS #2, LBRSOPEN : 
52 50 00 00188 MOVL RO, Tus : 
6A 2$ E8 00188 BLBS STATUS, 15$ : 0694 
52 DD 0018E PUSHL STATUS : 
59 DD 00190 PUSHL 3 
01 DD 00192 PUSHL #1 : 
00B1109A 8F DD 00194 PUSHL #11604122 : 
6A 04 FB 00194 CALLS #4, LIBSSIGNAL : 
56 11 0019D BRB 14§ : 0690 
0140 C9 69 90 0019F 12% MOVB RESULTANT_SPEC, OBJECT_FAB+52 3 0696 
0138 C69 04 AY DO 001A4 MOVL RESULTANT SPEC+4, OBJECT _FAB+44 3 0697 
010C C9 OF OOTAA PUSHAB OBJECT_FAB ; 0698 
000000006 00 01 FB OO1AE CALLS #1, SY SSOPEN : 
52 50 00 00185 MOVL R cy st US 3 
16 52 £8 00188 BLBS STAT 13$ : 0699 
0118 C9 DD 00188 PUSHL Onset “FAB+I2 5 
52 DD 001BF PUSHL STA ; 
59 DD 001C1 PUSHL 3 
61 DD 001C3 PUSHL #1 : 
00B1109A 8F DD 001C5S PUSHL #11604122 : 
6A 0S FB 001CB CALLS #5, LIBSSIGNAL : 
24 52 €9 OO1CE BLBC STATUS. ae? : 0700 
0964 C9 OF 00101 13% PUSHAB OBJECT_RAB 3 0701 
000000006 00 01 FB 00105 CALLS “1. SYSSCONNECT : 
52 50 DO 001DC MOVL RO, STATUS Z 
16 52 €8 001DF BLBS STATUS, Wes 3 0702 
0970 C9 DD OO01E2 PUSHL OBJECT _RAB+12 : 
52 DD 001E6 PUSHL STATUS 3 
59 DD 001E8 PUSHL R9 : 
01 DD OO1EA PUSHL #1 ; 
00B1109A 8F DD OO1EC PUSHL #11604122 : 
6A 05 FB O01F2 CALLS #5, LIBSSIGNAL 3 
69 52 £9 OO1FS 14% BLBC STATUS, 19% ; 0708 
2A 0107 C9 €E9 O01FB 15$ BLBC OBJECT _LIBRARY, 16% : 0716 
25 OAB4 C9 €E9 OO1FD BLBC ALL_MOBULES, 16% : 
OABC C9 D4 00202 R MODOLE_LIST_ SIZE ; 0717 
FDD8 CF 9F 00206 PUSHAB ADD_MOBULE_TO_LIST ; 0718 
08 AE 01 DO 0020A VL #1, 8(SP) : 
08 AE 9F OO0Z0E PUSHAB ; 
0108 C9 9F 00211 PUSHAB LBRARY INDE : 
00000000G 00 03 FB 00215 CALLS . LBRSGET_ INDEX 3 
52 50 pO 0021C MOVL RO, STATUS 
05 52 £€8 O0021F BLBS STATUS, 16$ ; 0719 
52 DD 00222 PUSHL STATUS i 
6A 01 FB 00224 CALLS #1, LIBSSIGNAL : 
03 0107 C9 5s 00227 168: BLBS OBJECT_LIBRARY, 17% 3 0727 
0080 31 0022C BRW 223 3 
OACO C9 D6 OO22F 178: INCL MODULE_LIST_INDEX : 0732 
OABC (9 OACO c9 Of tte CMPL BODULE “LISTIINDEX, MODULE _LIST_SIZE 3; 0738 
0108 #%c9 OF 0023C PUSHAB LIBRARY_INDEX : 0739 
000000006 00 01 FB 00240 CALLS HI LBRSCLOSE ~ 
52 50 pO 00247 MOVL RO, STATUS m 
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OF ; E8 0024A BLBS STATUS, 18% : 0760 
DD 30 4D PUSHL STATUS : 
59 DD 00245 PUSHL R9 : 
01 OD 00251 PUSHL #1 : 
00811052 8F OD BnS26 PUSHL #116040 : 
A 046 FB 00259 CALLS #4, LIBSSIGN ; 
OacoO 3«6C9 01 CE 0025C 18$: MNEGL #1, MODULE wie INDEX 3 0741 
44 11 00261 19$: BRB 516 : 0742 
16 AE 1F DO o0¢68 208: MOVL Aig MODULE NAME _DSC 3 0748 
50 OACO (C9 1F €5 00267 MULL3 MODULE rtA0}: INDEX : 0749 
18 AE OABB D940 9E 0026D MOVAB srobuLe ade’ ROJ; MODULE RNAME DSC +4 : 
146 AE OF 00274 PUSHAB MODULE_A : 0750 
18 AE 9F 00277 PUSHAB MODULE “NAME DS : 
1C AE OF OO27A PUSHAB MODULE-NAME DSC : 
OB 03 FB 0027D CALLS #3, STR : 
OC AE 9F 00280 PUSHAB DULE_TEXT_RFA : 0751 
18 AE 9F 00283 PUSHAB MODULE NAME DSC : 
0108 C9 OF 00286 PUSHAB gr INDEX : 
000000006 00 03 §£B 002BA CALLS #3, LBRSLOOKUP_KEY : 
52 50 DO 00291 MOVL RO, STATUS ps 
18 52 E8 00294 BLBS STATUS, 33s : 0752 
14 AE 9F 00297 PUSHAB MODULE_NAME_DSC : 0753 
59 DD 0029A PUSHL Ry 
02 DD 0029C PUSHL #2 ‘ 
00000000G 8F DD 0029E PUSHL #ANLOBJ$_NOSUCHMOD 3 
6A 04 FB 0024 CALLS #4, LIBSSIGNAL : 
57 DD 002A7 21$ PUSHL R7 : 0754 
FDS2.—SséCF 01 FB 002A9 CALLS #1, ANLSOPEN_NEXT_OBJECT_FILE : 
04 OO2AE RET ‘ 
57 DD OO2AF 22%: PUSHL R7 ; 0762 
0280 8F BB 00281 PUSHR #*M<R7,R9> : 
68 03 FB 00285 CALLS #3, STRSTRIM : 
26 0107 ¢9 €E9 00288 BLBC OBJECT LIBRARY, 23% 3 0763 
56 OACO 3=6C9 1F C5 002BD MULL3 #31, MODULE List. INDEX, R6 3 0764 
58 67 3C 002C3 MOVZWL (R75, RB : 0765 
58 04 A7 CO 002C6 ADDL2 4(R7), RB 5 
68 0000" CF 01 28 OO02CA MOVC3 #1, P.AAG, (RB) : 
63 OABB D946 1F 28 00200 MOVC3 #31, @MODULE_LISTCRO6], (R3) : 
67 20 AO 00207 ADDW2 #32, (R7) 3 0766 
57 DD OO2DA PUSHL R7 : 0767 
57 DD 0020C PUSHL R7 3 
57 DD 002DE PUSHL R7 : 
6B 03 FB 002E0 CALLS #3, STRSTRIM : 
50 01 DO 002E3 238: MOVL #1, RO 3; 0770 
04 00266 RET 3 
50 D4 OO2E7 24% CLRL RO 3s 0772 
04 002E9 RET é 


ls Routine Size: 746 bytes, Routine Base: $CODE$ + OOIE 
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3 m4 grt? 1 ¥s %sbttl "ANLSOBJECT_INCLUDE = Process a /INCLUDE Qualifier’ 
: 347 0775 1: "Funet tenet Description: 
; 48 0776 1: This routine is called to process the /INCLUDE qualifier that 
; 349 O777 1! might be attached to a file spec. We need to return a list of 
: rs o77e ! the module names in the qualifier. 
i} 26 0780 1 | Formal Parameters: 
s 5 0781 1! all Address of a byte to set if the user wants all 
3 «354 Ores ; : modules analyzed. 
$3. 639 0783 1! List_size Address of a longword in which we return the size 
; ¢2$ 0784 1} of the module List 
.. 0785 1: list Address of a vector of blocks in which we 
: $26 BRS | place the List. 
} 360 0788 1°! Implicit Inputs: 
a 30) 1A 94 ’ global data 
; 363 0791 1 | Implicit Outputs: 
; re: 1444 . global data 
; 366 0794 1 | Returned Value: ; ies 
3 Ht iae4 : True if there is a /INCLUDE qualifier, false if not. 
£ 398 fad be Side Effects: 
> 371 0799 1 i+ 
s 3fe 0800 1 
s Sis 0801 1 
Z $e bans $ global routine anl$object_include(all,list_size, list) = begin 
rt 376 0804 2 bind 
: oe 0805 2 all_modules = .all: byte, 
ree fa | 0806 2 module_list_size = .list size: long 
; ta pane $ module_list = .list: blockvectorl na6iSe_ symsiz,bytel]; 
; 381 0809 2 Local 
3 $56 pare $ Se status: long; 
; oca 
; $e¢ ons § local_described_buf fer (module_name,obj$c_symsiz); 
: 386 0814 2 
s Jer 0815 2! Try to get the first module name. If there is no qualifier, then 
3 $86 pats $* ' just return false. 
; 390 0818 2 status = cli$get_value(describe(* include’) ,module_name) ; 
; 591 0819 2 if not .status then 
: 308 Reco § return false; 
3 tos oss 2! If the first name is an asterisk, then the user wants all modules. 
t 396 0824 § if ch$eql(.module_name[len],.module_name[ptr], 1,uplit byte("*')," °) then ( 
; 397 0825 ; all_modules = true; 
HOF lige ee 
; else 
; ae +¥3 § all_modules = false; 


( 
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p80 ! Now we loop for each module name and add it to the List. 
tt) module_list_size = 0; 
083 do ( 
0834 3 npn og vad symsiz,.module_name(ptr], module_listl.module_list_° °7¢,0,0,0,0]); 
0835 3 increment (module_list size); 
0836 3 status = cli$get_valuetdescribe(" include’) ,module_name); 
0837 2) until not .status; 
0838 2 
0839 2 return true; 
0840 2 
0841 1 end; 
-PSECT $PLITS,NOWRT,NOEXE,2 
65 64 75 6C 63 6E€ 69 0002D P.AAI: nach \include\ 3 
00000007 00034 P.AAH: .LONG 7 ; 
00000000" 00038 “ADDRESS P. AAI : 
A 0003C P.AAJ: <ASCII : 
65 64 75 6C 63 6E 69 O0003D P.AAL: .ASCII \inctude\ : 
00000007 00044 P.AAK: .LONG 7 : 
00000000" 00048 ADDRESS P.AAL : 
-PSECT $CODES$,NOWRT,2 
OOFC 00000 -ENTRY ANLSOBJECT_INCLUDE, Save R2,R3,R4,R5,R6,R7 ; 0802 
57 000000006 00 9E 90002 MOVAB CLISGET_VACUE, R7 : 
5E 24 C2 00009 SUBL2 #36, SP c 
1F DD 0000C PUSHL #31 ; 0812 
04 AE 08 AE 9E OO00E MOVAB MODULE_NAME+8, MODULE _NAME +4 : 
SE DD 00013 PUSHL SP ; 0818 
0000" cF 9F 00015 PUSHAB P.AAH s 
67 02 FB 00019 CALLS #2, hen ty VALUE Z 
56 50 DO O001C MOVL RO, STA : 
39 56 €9 OOOTF BLBC STATUS, re ; 0819 
20 04 BE 6—E 2D 00022 CMPCS MODULE _NAME, @MODULE_NAME+4, #32, #1, P.AAJ ; 0824 
0000" CF 00028 : 
06 12 00028 BNEQ 1$ : 
04 BC 01 90 0002D MOVB #1, @ALL : 0825 
24 11 00031 BRB 3$ ; 0826 
04 BC 94 00033 1% CLRB @AL : 0828 
08 BC D4 00036 CLRL @LIST_SIZE : 0832 
50 08: BC 1F C5 00039 2$ MULL3 #31, GLIST_SIZE, RO 3 0834 
OC BC40 04 BE 1F 28 OOO3E MOVC3S #31, @MODUCE _NAME +4, aL ISTCRO) < 
08 BC D6 00045 INCL @LIST_SIZE ; 0835 
SE DD 00048 PUSHL i ; 0836 
0000" CF 9F OQOO4A PUSHAB P.A ; 
67 02 FB O004E CALLS #, MELISGET VALUE : 
56 50 DO 00051 MOVL RO, STATUS ; 
E2 56 €8 00054 BLBS STATUS, 2$ : 0837 
50 01 DO 00057 3$: MOVL #1, RO ; 0839 
04 OOOSA RET : 
50 D4 00058 4$: CLRL RO : 0841 


oe 


ey 


; Routine Size: 


4 NPUT = Handle Object Files 8 L 
JECT_LINCLUDE = Process a 7 IN 


ibrarie . Bre 
NCLUDE Gualifi 15300-1984 


04 00050 


94 bytes, Routine Base: S$CODE$S + 0308 


Be {7:5 


RET 


2:53 
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ANLSGET_OBJECT_RECORD = Read Record from Object 14- ~Sep-1986 
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52:53 CANALYZ.SRCJOBJINPUT.B32;1 
ei "ANLSGET_OBJECT_RECORD = Read Record from Object File’ 
: “Feetionet Description: 
This routine is called to read the next record from the current 
object file, which is assumed to be open. 


! Formal Parameters: 
buffer Address of a descriptor to fill in. 


! Implicit Inputs: 
global data 


ies Outputs: 
global data 


Returned Value 2 ; 
True if there is another record, false if not. 


Side Effects: 


global routine anl$get_object_record(buffer) = begin 


bind 
buffer_dsc = .buffer: descriptor; 


local 
status: long; 


! We split up depending upon whether it’s an object Library. 


if .object_library then ( 
statuc = ap ores At pine he ota index, ,object_buffer,buffer_dsc); 
if .status eqlu fms$_eof then 
return taise; 
check (.status, anlobj$_readerr,1,resultant_spec,.status); 


) else ( 
status = $get(rab=ob)ect_rab); 
if .status eqlu rms$_eof then 
return false; 
check (.status, anlobj$_ readerr,1,resultant_spec,.status,.object_rabl[rab$| stv); 
build _descriptor (buf fer~ dsc,. object_ rabLrab$w_rsz), .object_ rabCrab$l_rbfJ)> 
return true; 


end; 


.EXTRN SYSS$GET 
000c 00000 .ENTRY ANLSGET_OBJECT_RECORD, Save R2,R3 


Page 24 
= (9) 


= 386 4 


OBJ INPUT 
v04=000 


; Routine Size: 


466 
467 


Name 


SOWNS 
SCODES 
SPLITS 


m 16 
OBJINPUT = Handle Object Files & Libraries — 15-Sep-1984 334 
ANLSGET_OBJECT_RECORD = Read Record from Object 1e-8ep-1984 1: 
53 000000006 00 9 ater MOVAB 
52 04 AC 00 0000 MOVL 
50 0000° cF £9 0000D BLBC 
52 DD 00012 PUSHL 
0000" CF 9F 00014 PUSHAB 
0000" CF 9F 00018 PUSHAB 
000000006 00 03 FB 30036 CALLS 
0001827A = BF 50 D1 0002 CMPL 
51 13 +f BEQL 
4A 50 €8 0002C BLBS 
50 DD p00 PUSHL 
0000" CF 9F 00031 PUSHAB 
01 DD 00035 PUSHL 
00B110B2 8Ff DD 00037 PUSHL 
63 04 FB 0003D CALLS 
37 11 00040 BRB 
0000" CF 9F 00042 1$: PUSHAB 
00000000G 00 01 FB 00046 CALLS 
0001827A = BF 50 D1 00040 CMPL 
27 13 00054 BEQL 
15 50 €8 00056 BLBS 
0000" CF DD 00059 PUSHL 
50 DD 0005D PUSHL 
0000" CF 9F QO0SF PUSHAB 
01 DD 00063 PUSHL 
00B110B2 8F DD 00065 PUSHL 
3 05 FB 0006 CALLS 
62 0000° CF 3C OOO6E 2%: MOVZWL 
04 = A2 0000" CF DO 0007 MOVL 
50 01 DO 00079 3$: MOVL 
04 0007C RET 
50 D4 0007D 4$: CLRL 
04 0007F RET 
128 bytes, Routine Base: S$CODES + 0366 
0893 «#1 
0894 0 end eludom 
~EXTRN 
PSECT SUMMARY 
Bytes Attributes 


2760 NOVEC, 


WRT, 


998 NOVEC,NOWRT, RD 


76 NOVEC,NOWRT, 


Library Statistics 


RD ,NOEXE,NOSHR, 
RD :NOEXE,NOSHR, 


1:35 AX-11 Bliss=<-32 v4.0-74 Page $5 
2:53 ANALYZ.SRCJOBJ INPUT .832;1 (9) 
LIBSSIGNAL, R3 : 
BUFFER, R : 0868 

OBJECT LIBRARY, 1$ : 0875 

R2 ; 0876 
OBJECT BUFFER ; 

BRARY_ INDEX : 
" ABRSGeT RECORD : 
STATUS, #98938 3 0877 
status, 3$ + 0879 
RESULTANT. SPEC : 
#11604146 : 
#4, LIBSSIGNAL : 
3$° ; 0875 
OBJECT_RAB > 0883 
#1, SYSS$GET : 
STATUS, #98938 + 0884 
STATUS, 2$ > 0886 
OBJECT _RAB+12 : 
STATUS i 
7 eee : 
#1160414 : 
as,  TBSS1GNAL : 
OBJECT_RAB+34, (R2) : 0887 
OBJECT RAB+40, 4(R2) : 

...: ; 0890 
RO + 0892 
LIBS$SIGNAL 

REL, CON,NOPIC,ALIGN(2) 
REL, CON,NOPIC,ALIGN(2) 
REL, CON.NOPIC,ALIGN(2) 


1 

oh 1 OBJINPUT = Handle Object Files & Libraries 18.<8 971984 23:41:35 Ax-11 Bliss-32 V4.0-742 Page 26 
v04—- ANLSGET_OBJECT_RECORD = Read Record from Object 1a-8e5-1986 11:52:53 ANALYZ.SRCJOBJ INPUT .832;1 (9) 
: ee ecoaoce = Symbols mew amaen= Pages Processing 
5 File Total Loaded Percent Mapped Time 
; .$255$DUA28:(SYSLIBISTARLET.L32;1 9776 54 0 581 00:01.0 
F COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:0BJ INPUT/OBJ=OBJ$:OBJINPUT MSRC$:0BJINPUT/UPDATE=(ENH$:0BJ INPUT) 

Size: 998 code + 2836 data bytes 

Run Time: 00:19.8 

Elapsed Time: 00:57.9 

Lines/CPU Min: 2706 


Lexemes/CPU-Min: 20240 
pom Used: 268 pages 
Compilation Complete 
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